home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / 02 modules and namespaces / modulesdemo / namespacesample.vb < prev    next >
Encoding:
Text File  |  2001-07-28  |  1.0 KB  |  54 lines
  1. ' first example of namespace
  2.  
  3. Namespace HumanBeings
  4.  
  5.     Public Class Person
  6.         Public Const Title As String = "Mr. "
  7.  
  8.         Public FirstName As String
  9.         Public LastName As String
  10.  
  11.         Function CompleteName() As String
  12.             CompleteName = FirstName & " " & LastName
  13.         End Function
  14.     End Class
  15.  
  16. End Namespace
  17.  
  18. ' second example of namespace
  19.  
  20. Namespace Animals
  21.     Namespace Mammals
  22.         Class Dog
  23.             Dim aCat As New Cat()
  24.             Dim aLizard As New Reptiles.Lizard()
  25.             ' ....
  26.  
  27.         End Class
  28.  
  29.         Class Cat
  30.             ' ....
  31.         End Class
  32.  
  33.         Class Mouse
  34.             '
  35.         End Class
  36.     End Namespace
  37.  
  38.     Namespace Reptiles
  39.         Class Lizard
  40.             ' ....
  41.         End Class
  42.     End Namespace
  43. End Namespace
  44.  
  45. ' third example of namespace, that contains another MouseClass
  46.  
  47. Namespace Computers
  48.     Namespace Accessories
  49.  
  50.         Class Mouse
  51.             ' ...
  52.         End Class
  53.     End Namespace
  54. End Namespace